home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1993 November / JCSM Shareware Collection - 1993-11.iso / cl720 / fast278j.lzh / FMTA.F < prev    next >
Text File  |  1980-01-01  |  1KB  |  67 lines
  1.  
  2. ;== FORMAT DISK A: =========================================================
  3.  
  4. var head,track
  5.  
  6. function reseta
  7.     {
  8.     reg dx=0,ax=0:int 13h
  9.     }
  10.  
  11. function format
  12.     {
  13.     m=table
  14.     repeat 9
  15.     {
  16.     pokeb m,track
  17.     pokeb m+1,head
  18.     m+=4
  19.     }
  20.     fh=head*256
  21.     ft=track*256
  22.     reg es=reg cs,bx=table,cx=ft,dx=fh,ax=0509h
  23.     int 13h
  24.     if carry then return 0
  25.     return 1
  26.     }
  27.  
  28. print bios "Formatting Drive A:"
  29. reseta
  30. errors=0
  31.  
  32. for track=0 to 39
  33. print bios track;" ";
  34. for head=0 to 1
  35. print bios "(";head;") ";
  36.  
  37. repeat 3
  38.     {
  39.     if format then goto next_loop
  40.     print bios "r ";
  41.     reseta
  42.     }
  43. errors++
  44.  
  45. if scan=1 then print bios cr lf "ABORTED" cr lf:stop
  46.  
  47. next_loop:
  48. next head
  49. if (track and 3)=3 then print bios
  50. next track
  51.  
  52. print bios cr lf "Finished, ";errors;" error(s)."
  53. stop
  54.  
  55. ;===========================================================================
  56.  
  57. table:
  58. datab 0,0,0,2
  59. datab 0,0,3,2
  60. datab 0,0,6,2
  61. datab 0,0,1,2
  62. datab 0,0,4,2
  63. datab 0,0,7,2
  64. datab 0,0,2,2
  65. datab 0,0,5,2
  66. datab 0,0,8,2
  67.